  20 .THIEVES & ASSASSINS
NT=0;CLEAR 
   1 GOTO 10
   2 PRINT "S:",;RETURN 
   3 PRINT "I:",;RETURN 
   4 PRINT "W:",;RETURN 
   5 PRINT "D:",;RETURN 
   6 PRINT "C:",;RETURN 
   7 CX=CX-6;PRINT "CH:",;RETURN 
  10 .CHARACTER MAKER
  20 .THIEVES & ASSASSINS
  25 FOR A=0TO 4;PRINT ;NEXT A;CLEAR ;X=400
  35 CY=-40
  40 FOR A=1TO 7;@(A)=0;MU=RND (65)+48
  50 FOR Z=20080TO 20088STEP 2;%(Z)=RND (6);NEXT Z;GOSUB 200
  60 NEXT A;NT=1
  65 CY=39;CX=-72
  70 GOSUB 800
  80 K=KP;RUN 
 120 BOX 0,39,160,9,3
 125 PRINT ;CY=22
 130 BC=RND (32)×8-1
 140 FOR A=1TO 6;CX=48
 145 GOSUB A+1;PRINT #3,@(A);NEXT A
 150 GOTO 865
 190 IF E<BIF E<CIF E<D E=0
 200 IF D<BIF D<CIF D<E D=0
 210 IF C<BIF C<DIF C<E C=0
 220 IF B<CIF B<DIF B<E B=0
 230 @(A)=B+C+D+E
 240 IF @(A)>18 @(A)=18
 250 RETURN 
 270 PRINT "PICK:",#3,L×5+25,"%
 280 PRINT "OPEN:",#3,L×4+21+(L>4)×(L-4),"%
 290 PRINT "FIND:",#3,L×5+15,"%
 300 PRINT "MOVE:",#3,L×6+9+(L>4)+(L>6)×(L-4)+(L=6)+(L=9),"%
 310 PRINT "HIDE:",#3,L×5+5+(L>4)+(L>5)×(L-5)+(L=9),"%
 315 Z=L÷2;IF RM Z=Z+1
 320 PRINT "HEAR:",#3,Z×5+5,"%
 330 IF L<5 Z=1;Y=84
 340 IF L>4IF L#10 Z=2;Y=80
 350 IF L=10 Z=1;Y=89
 360 PRINT "CLIMB:",#3,L×Z+Y,"%
 370 Z=0;IF L>3 Z=5
 380 PRINT "READ:",#3,L×Z,"%
 390 RETURN 
 800 @(7)=RND (3);@(8)=RND (3)
 810 IF @(8)=3IF @(1)>11IF @(2)>10IF @(4)>11PRINT "ASSASSIN";C=2;GOTO 850
 820 PRINT "THIEF";C=1;GOTO 850
 831 .
 832 PRINT "NEUTRAL ",;RETURN 
 833 PRINT "CHAOTIC ",;RETURN 
 835 PRINT "GOOD";RETURN 
 836 PRINT ;RETURN 
 837 PRINT "EVIL";RETURN 
 850 CX=0;CY=30;GOSUB 830+@(7);GOSUB 834+@(8)
 860 L=RND (9);CY=39;CX=12;PRINT "LEVEL:",#3,L
 862 GOTO 120
 865 CY=30
 900 GOTO 270
:RETURN ;RUN 
